Public Class BLInfo

    Public Sub FieldInfo(ByVal sFieldName As String, ByVal sAttributeName As String, Optional ByVal sDataType As String = "VARCHAR")
        Dim sFieldInfo As String = ""

        sFieldInfo = "Field: " & sFieldName
        sFieldInfo = sFieldInfo & vbCrLf & "Attribute: " & sAttributeName
        sFieldInfo = sFieldInfo & vbCrLf & "Datatype: " & sDataType

        MsgBox(sFieldInfo, , "Movie Manager : Field Info")
    End Sub

End Class
